home *** CD-ROM | disk | FTP | other *** search
/ Game On / Game_On_93-11_1993-11_-_de_Side_A.d64 / ninja spirit / ninja spirit.080d / ninja spirit.a7ae (.txt)
Encoding:
Commodore BASIC  |  1995-01-01  |  3.6 KB  |  182 lines
  1. 0 rem ninja spirit  trainer by elmar germann (NULL)
  2. 1 print"":poke 53280,0:poke 53281,0:print"[147]":poke 808,2
  3. 2 print chr$(142):print chr$(8)
  4. 3 gosub 38
  5. 4 open 15,8,15,"u9":close 15:print"[147]"
  6. 5 print"         [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  7. 6 print"         [221] ninja spirit trainer [221]"
  8. 7 print"         [221]   by elmar germann[146]   [221]"
  9. 8 print"         [221]   (c) by cp verlag   [221]"
  10. 9 print"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  11. 10 print
  12. 11 print"  [176][192][192][174]"
  13. 12 print"  [221]f1[221] : unendliche leben"
  14. 13 print"  [173][192][192][189]"
  15. 14 print
  16. 15 print"  [176][192][192][174]"
  17. 16 print"  [221]f3[221] : endliche leben"
  18. 17 print"  [173][192][192][189]"
  19. 18 print
  20. 19 print"  [176][192][192][174]"
  21. 20 print"  [221]f5[221] : unendliche continues"
  22. 21 print"  [173][192][192][189]"
  23. 22 print
  24. 23 print"  [176][192][192][174]"
  25. 24 print"  [221]f7[221] : endliche continues"
  26. 25 print"  [173][192][192][189]"
  27. 26 print
  28. 27 print"  [176][192][174]"
  29. 28 print"  [221]e[221]  : ende"
  30. 29 print"  [173][192][189]"
  31. 30 print""
  32. 31 geta$:ifa$=""then 31
  33. 32 ifa$=chr$(133)then print:goto 48
  34. 33 ifa$=chr$(134)then print:goto 74
  35. 34 ifa$=chr$(135)then print:goto 100
  36. 35 ifa$=chr$(136)then print:goto 126
  37. 36 ifa$="e"then print:goto 152
  38. 37 goto 30
  39. 38 print"[147]"
  40. 39 print
  41. 40 print"               bitte die"
  42. 41 print
  43. 42 print"       seite 2 von 'ninja spirit'[146]"
  44. 43 print"       ohne formatierungsschutz ![146]"
  45. 44 print"          ins laufwerk legen !"
  46. 45 print"             press space ! [146]"
  47. 46 geta$:ifa$=""then 46
  48. 47 return
  49. 48 print"[147]"
  50. 49 open 1,8,15,"i":open 2,8,2,"#"
  51. 50 print#1,"u1 2 0 9 12"
  52. 51 print#1,"b-p 2 47"
  53. 52 print#2,chr$(173);
  54. 53 print#1,"u2 2 0 9 12"
  55. 54 print#1,"i":close 1:close 2
  56. 55 open 1,8,15,"i":open 2,8,2,"#"
  57. 56 print#1,"u1 2 0 15 12"
  58. 57 print#1,"b-p 2 86"
  59. 58 print#2,chr$(173);
  60. 59 print#1,"u2 2 0 15 12"
  61. 60 print#1,"i":close 1:close 2
  62. 61 open 1,8,15,"i":open 2,8,2,"#"
  63. 62 print#1,"u1 2 0 22 11"
  64. 63 print#1,"b-p 2 132"
  65. 64 print#2,chr$(173);
  66. 65 print#1,"u2 2 0 22 11"
  67. 66 print#1,"i":close 1:close 2
  68. 67 open 1,8,15,"i":open 2,8,2,"#"
  69. 68 print#1,"u1 2 0 28 16"
  70. 69 print#1,"b-p 2 34"
  71. 70 print#2,chr$(173);
  72. 71 print#1,"u2 2 0 28 16"
  73. 72 print#1,"i"
  74. 73 close 1:close 2:goto 4
  75. 74 print"[147]"
  76. 75 open 1,8,15,"i":open 2,8,2,"#"
  77. 76 print#1,"u1 2 0 9 12"
  78. 77 print#1,"b-p 2 47"
  79. 78 print#2,chr$(206);
  80. 79 print#1,"u2 2 0 9 12"
  81. 80 print#1,"i":close 1:close 2
  82. 81 open 1,8,15,"i":open 2,8,2,"#"
  83. 82 print#1,"u1 2 0 15 12"
  84. 83 print#1,"b-p 2 86"
  85. 84 print#2,chr$(206);
  86. 85 print#1,"u2 2 0 15 12"
  87. 86 print#1,"i":close 1:close 2
  88. 87 open 1,8,15,"i":open 2,8,2,"#"
  89. 88 print#1,"u1 2 0 22 11"
  90. 89 print#1,"b-p 2 132"
  91. 90 print#2,chr$(206);
  92. 91 print#1,"u2 2 0 22 11"
  93. 92 print#1,"i":close 1:close 2
  94. 93 open 1,8,15,"i":open 2,8,2,"#"
  95. 94 print#1,"u1 2 0 28 16"
  96. 95 print#1,"b-p 2 34"
  97. 96 print#2,chr$(206);
  98. 97 print#1,"u2 2 0 28 16"
  99. 98 print#1,"i"
  100. 99 close 1:close 2:goto 4
  101. 100 print"[147]"
  102. 101 open 1,8,15,"i":open 2,8,2,"#"
  103. 102 print#1,"u1 2 0 9 12"
  104. 103 print#1,"b-p 2 69"
  105. 104 print#2,chr$(173);
  106. 105 print#1,"u2 2 0 9 12"
  107. 106 print#1,"i":close 1:close 2
  108. 107 open 1,8,15,"i":open 2,8,2,"#"
  109. 108 print#1,"u1 2 0 15 12"
  110. 109 print#1,"b-p 2 103"
  111. 110 print#2,chr$(173);
  112. 111 print#1,"u2 2 0 15 12"
  113. 112 print#1,"i":close 1:close 2
  114. 113 open 1,8,15,"i":open 2,8,2,"#"
  115. 114 print#1,"u1 2 0 22 11"
  116. 115 print#1,"b-p 2 156"
  117. 116 print#2,chr$(173);
  118. 117 print#1,"u2 2 0 22 11"
  119. 118 print#1,"i":close 1:close 2
  120. 119 open 1,8,15,"i":open 2,8,2,"#"
  121. 120 print#1,"u1 2 0 28 16"
  122. 121 print#1,"b-p 2 103"
  123. 122 print#2,chr$(173);
  124. 123 print#1,"u2 2 0 28 16"
  125. 124 print#1,"i"
  126. 125 close 1:close 2:goto 4
  127. 126 print"[147]"
  128. 127 open 1,8,15,"i":open 2,8,2,"#"
  129. 128 print#1,"u1 2 0 9 12"
  130. 129 print#1,"b-p 2 69"
  131. 130 print#2,chr$(206);
  132. 131 print#1,"u2 2 0 9 12"
  133. 132 print#1,"i":close 1:close 2
  134. 133 open 1,8,15,"i":open 2,8,2,"#"
  135. 134 print#1,"u1 2 0 15 12"
  136. 135 print#1,"b-p 2 103"
  137. 136 print#2,chr$(206);
  138. 137 print#1,"u2 2 0 15 12"
  139. 138 print#1,"i":close 1:close 2
  140. 139 open 1,8,15,"i":open 2,8,2,"#"
  141. 140 print#1,"u1 2 0 22 11"
  142. 141 print#1,"b-p 2 156"
  143. 142 print#2,chr$(206);
  144. 143 print#1,"u2 2 0 22 11"
  145. 144 print#1,"i":close 1:close 2
  146. 145 open 1,8,15,"i":open 2,8,2,"#"
  147. 146 print#1,"u1 2 0 28 16"
  148. 147 print#1,"b-p 2 103"
  149. 148 print#2,chr$(206);
  150. 149 print#1,"u2 2 0 28 16"
  151. 150 print#1,"i"
  152. 151 close 1:close 2:goto 4
  153. 152 print"[147]"
  154. 153 print""
  155. 154 print"  [176][192][192][174]"
  156. 155 print"  [221]f1[221] : reset"
  157. 156 print"  [173][192][192][189]"
  158. 157 print
  159. 158 print"  [176][192][192][174]"
  160. 159 print"  [221]f3[221] : spiel laden"
  161. 160 print"  [173][192][192][189]"
  162. 161 print
  163. 162 print"  [176][192][192][174]"
  164. 163 print"  [221]f5[221] : zurueck"
  165. 164 print"  [173][192][192][189]"
  166. 165 print""
  167. 166 geta$:ifa$=""then 166
  168. 167 ifa$=chr$(133) then print:print"[147]":sys 64738
  169. 168 ifa$=chr$(134) then print:goto 171
  170. 169 ifa$=chr$(135) then print:goto 4
  171. 170 goto 165
  172. 171 print"[147]"
  173. 172 print""
  174. 173 print"               bitte die"
  175. 174 print
  176. 175 print"       seite 1 von 'ninja spirit' [146]"
  177. 176 print
  178. 177 print"          ins laufwerk legen !"
  179. 178 print"             press space ! [146]"
  180. 179 geta$:ifa$=""then 179
  181. 180 load":*",8,1
  182.